home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / demo / AWeb.lha / aweb31demo / Install < prev    next >
Text File  |  1998-01-20  |  7KB  |  252 lines
  1. ; $VER: Install_AWeb 3.1DEMO (14.1.98)
  2. ; Description: Installer script for AWeb-II 3.1DEMO
  3.  
  4. (set cpu (database "cpu"))
  5. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7.  
  8. (set awn (getversion "AWeb"))
  9. (set awv (/ awn 65536))
  10. (set awr (- awn (* awv 65536)))
  11.  
  12. ; all strings used in this installer script
  13. (set #need39 "This program requires OS 3.0 or later to function.")
  14. (set #nohelp "No help available.")
  15. (set #welcome
  16.    (cat "AWeb-II is a fast, multithreaded World Wide Web browser for Amiga OS 3.0 or higher.\n"
  17.       "It understands virtually all widely used HTML including JavaScript and has many other features.\n"
  18.       "AWeb-II runs with a wide variety of TCP-stacks."
  19.       ("\n\nThis installation procedure will install the AWeb-II browser version %ld.%ldDEMO on your system.\n" awv awr)
  20.    )
  21. )
  22. (set #classact
  23.    (cat "IMPORTANT\n\n"
  24.         "This AWeb-II demo needs the ClassAct GUI package to run.\n"
  25.         "The ClassAct package is not included in the demo archive, but is freely available "
  26.         "from Aminet, and via ftp from:\n"
  27.         "ftp://ftp.thule.no/pub/classact/"
  28.    )
  29. )
  30.  
  31. (set #destdir-prompt "Please select the directory where you want AWeb-II DEMO installed.\n(If you do not accept the default, a directory 'AWeb31DEMO' will be created there.)")
  32. (set #destdir-help "A directory for AWeb31DEMO will be created here. By accepting the default directory, most of the files don't have to be copied.")
  33. (set #installing "Installing ")
  34. (set #languages-prompt "Please select which language catalog(s) you want to install")
  35. (set #memory-prompt "Is your Amiga equipped with more than 2MB of memory?")
  36. (set #memory-help "AWeb-II runs on a 2MB Amiga, but needs a special setup on such a machine. If you click the 'only 2MB' button, the appropriate settings will be installed.\n\nYou can always change the settings after installation.")
  37. (set #fonts-prompt "Do you want to install the \"times.font\" and \"courier.font\" sizes 30 and 36?")
  38. (set #fonts-help 
  39.    (cat "In order to provide AWeb-II with a consistent set of fonts, four fonts are included "
  40.       "in this archive, times/30, times/36, courier/30 and courier/36.\n\n"
  41.       "Because the demo uses these fonts by default, page headers might look really awful "
  42.       " if you don't install these fonts. It is highly recommended that you install them."
  43.    )   
  44. )
  45. (set #fixfonts-prompt "The FixFonts utility will be run to make the newly added fonts available.")
  46. (set #fixfonts-help
  47.    (cat "The FixFonts utility is needed to make the newly added fonts available to the system.\n\n"
  48.       "If you intend to use the fonts from this archive, you are strongly encouraged to "
  49.       "run FixFonts now.\n\n"
  50.       "Note that running this program may take a while."
  51.    )
  52. )
  53.  
  54. (set #readme "Displaying the version notes readme...")
  55. (set #bye 
  56.    (cat "In case you need help configuring or using AWeb-II DEMO, pressing the HELP key "
  57.       "when AWeb is active will bring up the documentation.\n"
  58.       "I hope you will enjoy using this demo and will consider purchasing the full version."
  59.    )
  60. )
  61.  
  62. ; ---------------------------------------------------------------------------
  63.  
  64. (complete 0)
  65.  
  66. (if (not v39)
  67.    (abort #need39)
  68. )
  69.  
  70. (message #welcome)
  71.  
  72. (set @source-dir (pathonly @icon))
  73.  
  74. (set defdir
  75.    (askdir
  76.       (prompt #destdir-prompt)
  77.       (help #destdir-help)
  78.       (default @source-dir)
  79.    )
  80. )
  81. (set @default-dest defdir)
  82.  
  83. (set nocopy (= @source-dir @default-dest))
  84.  
  85. (message #classact)
  86.  
  87. (if (not nocopy)
  88.     (
  89.        (set @default-dest (tackon @default-dest "AWeb31DEMO"))
  90.     
  91.        (set update-aweb (exists @default-dest))
  92.     
  93.        (if (not update-aweb)
  94.            (makedir @default-dest 
  95.                (prompt #creating-dir @default-dest) 
  96.                (infos)
  97.            )
  98.        )
  99.       (complete 10)
  100.  
  101.       (copyfiles
  102.          (source "")
  103.          (dest @default-dest)
  104.          (choices "AWeb" "AWebCfg")
  105.          (prompt #installing "AWeb")
  106.          (infos)
  107.       )
  108.       (complete 20)
  109.       
  110.        (copyfiles
  111.          (source "")
  112.           (dest @default-dest)
  113.          (choices "aweblib")
  114.           (prompt #installing "AWeb")
  115.        )
  116.       (complete 30)
  117.  
  118.       (set cache-dir (tackon @default-dest "Cache"))
  119.       (if (not (exists cache-dir))
  120.          (
  121.             (makedir cache-dir
  122.                (prompt #creating-dir cache-dir)
  123.                (infos)
  124.             )
  125.          )
  126.       )
  127.       (complete 40)
  128.  
  129.        (copyfiles
  130.          (source "")
  131.           (dest @default-dest)
  132.          (choices "ReadMe" "Docs" "Icons" "Images")
  133.           (prompt #installing "AWeb")
  134.           (infos)
  135.        )
  136.       (complete 50)
  137.       
  138.       (set languages
  139.          (askoptions
  140.             (choices "English" "Dansk" "Deutsch" "Íslenska" "Italiano"
  141.                "Nederlands" "Português" "Russian" "Svenska")
  142.             (prompt #languages-prompt)
  143.             (help @askoptions-help)
  144.             (default 1)
  145.          )
  146.       )
  147.  
  148.       ; If any language calalogs are selected, copy them.
  149.  
  150.       (if (bitand languages 65534)
  151.          (
  152.             (set catdir (tackon @default-dest "Catalogs"))
  153.             (if (not (exists catdir))
  154.                (makedir catdir
  155.                   (prompt #creating-dir catdir)
  156.                     (infos)
  157.                )
  158.             )
  159.             (set bit 2)    ; English implementation, so there is no catalog for it
  160.             (set langnr 1)
  161.             (while (< langnr 9)
  162.                (if (bitand languages bit)
  163.                   (
  164.                      (set lang
  165.                         ; English is never selected from this list
  166.                         (select langnr "English" "Dansk" "Deutsch" "Íslenska" "Italiano"
  167.                            "Nederlands" "Português" "Russian" "Svenska"
  168.                         )
  169.                      )
  170.                      (copyfiles
  171.                         (source (tackon "Catalogs" lang))
  172.                         (choices "aweb.catalog" "awebcfg.catalog")
  173.                         (dest (tackon catdir lang))
  174.                      )
  175.                   )
  176.                )
  177.                (set bit (shiftleft bit 1))
  178.                (set langnr (+ langnr 1))
  179.             )
  180.          )
  181.       )
  182.     )
  183. )
  184.  
  185. (complete 60)
  186.  
  187. ; Only ask if fonts should be installed in expert mode
  188. (if
  189.    (< @user-level 2)
  190.    (set #fonts 1)
  191.    (set #fonts
  192.       (askbool
  193.          (prompt #fonts-prompt)
  194.          (help #fonts-help)
  195.          (choices "Yes" "No")
  196.          (default 1)
  197.       )
  198.    )
  199. )
  200. (if
  201.    (> #fonts 0)
  202.    (
  203.       (copyfiles
  204.          (source "Fonts")
  205.          (dest "Fonts:")
  206.          (choices "times" "courier")
  207.          (prompt #installing "fonts")
  208.       )
  209.       (run "SYS:System/FixFonts"
  210.          (confirm)
  211.          (prompt #fixfonts-prompt)
  212.          (help #fixfonts-help)
  213.       )
  214.    )
  215. )
  216.  
  217. (complete 80)
  218.  
  219. (set #memory
  220.    (askbool
  221.       (prompt #memory-prompt)
  222.       (help #memory-help)
  223.       (choices "More than 2MB" "Only 2MB")
  224.       (default 1)
  225.   )
  226. )
  227.  
  228. (if (= #memory 0)
  229.    (
  230.       (makedir
  231.          (tackon @default-dest "T")
  232.       )
  233.       (makedir "ENVARC:AWeb3DEMO")
  234.       (copyfiles
  235.          (source "2MBsettings")
  236.          (dest "ENVARC:AWeb3DEMO")
  237.          (all)
  238.       )
  239.       (copyfiles
  240.          (source "ENVARC:AWeb3DEMO")
  241.          (dest "ENV:AWeb3DEMO")
  242.          (all)
  243.       )
  244.    )
  245. )
  246.  
  247. (complete 100)
  248.  
  249. (run "run >NIL: SYS:Utilities/MultiView ReadMe" (prompt #readme))
  250.  
  251. (exit #bye)
  252.